if target contains "drag me" then put empty into target
end if
end mousestilldown
on mouseUp
if "card field" is in the name of the target then
global mode,link1,link2,links,lineColor
if mode is "draw a link" or mode is "erase a link" then
set the cursor to watch
add 1 to links
if links is 1 then
put loc of target into link1
set rect of card button "hilite" to rect of target
show card button "hilite"
exit mouseUp
end if
if links is 2 then
put loc of target into link2
set rect of card button "hilite" to rect of target
show card button "hilite"
choose line tool
get the pattern
set the pattern to lineColor
set dragspeed to 300
drag from link1 to link2 with optionKey
choose browse tool
put 0 into links
hide card button "hilite"
exit mouseUp
end if
put 0 into links
end if
if target contains "drag me" then put empty into target
if mode is "delete a box" then
set rect of card button "hilite" to rect of target
show card button "hilite"
wait 30
answer "OK to DELETE the highlighted box?" with "OK" or "Cancel"
if it is "cancel" then
hide card button "hilite"
exit mouseUp
else
set cursor to watch
lock screen
get the name of target
select it
type "x" with commandKey
hide card button "hilite"
choose browse tool
unlock screen with visual dissolve slowly
end if
end if
end if
end mouseUp
on closeCard
if visible of card button "cover" is true then
hideAll
lockFields
end if
hide card button "hilite"
hide cd btn "print cover.1"
hide cd btn "print cover.2"
pass closecard
end closeCard
on openCard
put background field "topic" into card field "topic"
pass opencard
end openCard
on hideAll
global mode
lock screen
if mode is not empty then
set hilite of card button mode to false
put empty into mode
end if
set visible of card field "instructions 1" to not visible of card field "instructions 1"
set visible of card button "Draw A Link" to not visible of card button "Draw A Link"
set visible of card button "Erase A Link" to not visible of card button "Erase A Link"
set visible of card button "cover" to not visible of card button "cover"
set visible of card button "revert" to not visible of card button "revert"
set visible of card button id 23 to not visible of card button id 23
set visible of card button "add a box" to not visible of card button "add a box"
set visible of card button "delete a box" to not visible of card button "delete a box"
set visible of card button "arrange boxes" to not visible of card button "arrange boxes"
set visible of card button "erase all links" to not visible of card button "erase all links"
set visible of card button "write in boxes" to not visible of card button "write in boxes"
set visible of card button id 89 to not visible of card button id 89
set visible of card field "write in boxes" to not visible of card field "write in boxes"
unlock screen with visual wipe right slowly
end hideAll
on lockFields
repeat with i = 1 to the number of card fields
set locktext of card field i to true
end repeat
end lockFields
-- part 3 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=41 top=40 right=73 bottom=442
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: organize help
-- part 5 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=44 top=42 right=76 bottom=443
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name:
-- part 6 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=42 top=38 right=72 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name:
-- part 213 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=371 top=296 right=342 bottom=409
-- title width / last selected line: 0
-- icon id / first selected line: 1008 / 1008
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print
----- HyperTalk script -----
on mouseUp
answer "Be certain that the printer is ready." with "OK" or "Cancel"
if it is "cancel" then exit mouseup
lock screen
if it is "cancel" then exit mouseup
else
set cursor to watch
lock screen
show cd btn "print cover.1"
show cd btn "print cover.2"
print this card
hide cd btn "print cover.1"
hide cd btn "print cover.2"
end if
end mouseUp
-- part 9 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=139 top=150 right=177 bottom=330
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 8448
-- line height: 11
-- part name: Topic
-- part 23 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=3 top=273 right=288 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Click here to modify this chart...
----- HyperTalk script -----
on mouseUp
set hilite of target to true
set cursor to watch
hideAll
put return&return&" Click on one of these buttons--->>" &return&" to change the chart above." into card field "instructions 1"
set hilite of target to false
end mouseUp
-- part 47 (button)
-- low flags: 80
-- high flags: 0001
-- rect: left=0 top=291 right=342 bottom=442
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cover
-- part 57 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=-1 top=290 right=342 bottom=191
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: Instructions 1
----- HyperTalk script -----
on mouseUp
end mouseUp
on mousestilldown
end mousestilldown
-- part 61 (button)
-- low flags: 80
-- high flags: 8002
-- rect: left=189 top=293 right=306 bottom=259
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Draw A Link
----- HyperTalk script -----
on mouseUp
global mode,lineColor
if mode is "Write in boxes" then lockFields
put 12 into lineColor
set linesize to 2
if mode is not empty then set hilite of card button mode to false
set hilite of target to true
put the short name of target into mode
put empty into card field "instructions 1"
wait 30
put " DRAW A LINK INSTRUCTIONS"&return &"1. Click on any box to begin link"&return &"2. Click another box to finish one link."&return &"3. Repeat steps 1 and 2." into card field "instructions 1"
end mouseUp
-- part 62 (button)
-- low flags: 80
-- high flags: 8002
-- rect: left=189 top=308 right=321 bottom=259
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Erase A Link
----- HyperTalk script -----
on mouseUp
global mode,lineColor
if mode is "Write in boxes" then lockFields
put 1 into lineColor
set linesize to 8
if mode is not empty then set hilite of card button mode to false
set hilite of target to true
put the short name of target into mode
put empty into card field "instructions 1"
wait 30
put " ERASE A LINK INSTRUCTIONS"&return &"1. Click on any box to begin erasing"&return &"2. Click another box to finish erasing."&return &"3. Repeat steps 1 and 2 as needed." &return&"(This works best if boxes aren't moved.)" into card field "instructions 1"
end mouseUp
-- part 78 (button)
-- low flags: 80
-- high flags: 8002
-- rect: left=266 top=308 right=321 bottom=336
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Delete A Box
----- HyperTalk script -----
on mouseUp
global mode
if mode is "Write in boxes" then lockFields
if mode is not empty then set hilite of card button mode to false
set hilite of target to true
get the short name of target
put it into mode
put empty into card field "instructions 1"
wait 30
put " DELETE A BOX INSTRUCTIONS" &return&"1. Click on the box to be deleted." &return&"2. Confirm deletion of hilited box." &return&"Note: You might Erase A Link before deleting a box." into card field "instructions 1"
answer "Now click on the box that you wish to delete."
end mouseUp
-- part 79 (button)
-- low flags: 80
-- high flags: 8002
-- rect: left=189 top=323 right=336 bottom=259
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Erase All Links
----- HyperTalk script -----
on mouseUp
global mode
if mode is "Write in boxes" then lockFields
if mode is not empty then set hilite of card button mode to false
set hilite of target to true
get the short name of target
put it into mode
put empty into card field "instructions 1"
wait 30
put return&"Erase All Links will erase all of the lines you have " &"draw between boxes." into card field "instructions 1"
answer "This will erase all links in the chart." with "OK" or "Cancel"
if it is "cancel" then
set hilite of target to false
put empty into mode
put return&return&" Click on one of these buttons--->>" &return&" to change the chart above." into card field "instructions 1"
exit mouseUp
end if
set cursor to watch
lock screen
put the userlevel into savelevel
choose select tool
set dragspeed to 0
drag from 0,47 to 511,287
type "x" with commandKey
choose browse tool
set the userlevel to saveLevel
unlock screen with visual dissolve slowly
set hilite of target to false
put empty into mode
put return&return&" Click on one of these buttons--->>" &return&" to change the chart above." into card field "instructions 1"
end mouseUp
-- part 80 (button)
-- low flags: 80
-- high flags: 8002
-- rect: left=266 top=323 right=336 bottom=336
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Arrange Boxes
----- HyperTalk script -----
on mouseUp
global mode
if mode is "Write in boxes" then lockFields
if mode is not empty then set hilite of card button mode to false
set hilite of target to true
get the short name of target
put it into mode
put empty into card field "instructions 1"
wait 30
put" ARRANGE BOXES INSTRUCTIONS" &return&"To move a box, click and drag it." &return&"Note: If boxes are moved after drawing links, it may not be as" &"easy to Erase A Link." into card field "instructions 1"
end mouseUp
-- part 83 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=342 top=293 right=315 bottom=396
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: write in boxes
-- part 84 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=342 top=293 right=315 bottom=396
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Write In Boxes
----- HyperTalk script -----
on mouseUp
global mode
if mode is not empty then set hilite of card button mode to false
set hilite of target to true
get the short name of target
put it into mode
repeat with i = 1 to the number of card fields
set locktext of card field i to false
end repeat
set locktext of card field "instructions 1" to true
set locktext of card field "Topic" to true
end mouseUp
-- part 89 (button)
-- low flags: 80
-- high flags: 8002
-- rect: left=3 top=273 right=288 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Click here when done with chart.
----- HyperTalk script -----
on mouseUp
set hilite of target to true
set cursor to watch
hideAll
lockFields
put empty into card field "instructions 1"
set hilite of target to false
end mouseUp
-- part 132 (button)
-- low flags: 80
-- high flags: 8002
-- rect: left=266 top=293 right=306 bottom=336
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Add A Box
----- HyperTalk script -----
on mouseUp
global mode
if mode is "Write in boxes" then lockFields
if mode is not empty then set hilite of card button mode to false
set hilite of target to true
get the short name of target
put it into mode
put return&return&"When the new box appears, drag it to its new location." into card field "instructions 1"
answer "OK to add a box?" with "OK" or "Cancel"
if it is "cancel" then
set hilite of target to false
put empty into mode
put return&return&" Click on one of these buttons--->>" &return&" to change the chart above." into card field "instructions 1"
exit mouseUp
end if
set cursor to watch
put return&return&"This will take about 4 seconds." into card field "instructions 1"
lock screen
doMenu "new field"
get the number of card fields
set the rect of card field it to 257,271,344,292
set the textFont of card field it to geneva
set the textSize of card field it to 9
set the textStyle of card field it to plain,condense
set the textAlign of card field it to center
set the textHeight of card field it to 9
set the textStyle of card field it to plain
set the Style of card field it to rectangle
set the lockText of card field it to true
show card button "hilite"
select card button "hilite"
type "x" with commandKey
type "v" with commandKey
hide card button "hilite"
choose browse tool
unlock screen with visual dissolve
put "Now drag me to where you want me." into card field it
send mouseUp to card button "arrange boxes"
end mouseUp
-- part 179 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=262 top=86 right=107 bottom=349
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name:
-- part 191 (button)
-- low flags: 80
-- high flags: 8002
-- rect: left=342 top=323 right=336 bottom=396
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Revert
----- HyperTalk script -----
on mouseUp
global mode
answer "Revert to when you just now began editing this chart?" with "OK" or "Cancel"
if it is "cancel" then
exit mouseUp
set hilite of target to false
end if
set cursor to watch
lock screen
set hilite of target to true
choose select tool
doMenu "revert"
choose browse tool
set hilite of target to false
unlock screen with visual dissolve
end mouseUp
-- part 214 (button)
-- low flags: 80
-- high flags: 0001
-- rect: left=0 top=293 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: print cover.1
-- part 216 (button)
-- low flags: 80
-- high flags: 0001
-- rect: left=3 top=273 right=288 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: print cover.2
-- part 227 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=116 top=105 right=126 bottom=203
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name:
-- part 228 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=232 top=51 right=72 bottom=319
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name:
-- part 229 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=330 top=53 right=74 bottom=417
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name:
-- part 230 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=72 top=75 right=96 bottom=159
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name:
-- part 231 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=3 top=183 right=204 bottom=90
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name:
-- part 232 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=3 top=209 right=230 bottom=90
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name:
-- part 236 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=3 top=235 right=256 bottom=90
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name:
-- part 237 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=330 top=53 right=74 bottom=417
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hilite
----- HyperTalk script -----
on mouseUp
global link1,link2,links
put empty into link1
put empty into link2
put empty into links
hide target
end mouseUp
-- part contents for card part 3
----- text -----
Use one of the "maps" below to cluster your ideas for this essay.
